function [post,like] = rsfnmh(para,data);
    
     
global mprior 
     lpr =  logprior(para); 
     if imag(lpr) == 0 
     lpri = lpr;
     else 
     lpri = -10000000;
     end 
     
     if mprior<4 
     like = tloglik(para,data); 
     elseif mprior>=4  
     like = tloglik4(para,data); 
     end 
     post =  lpri+like; 
         
